VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{5C6863A4-877B-4EF1-9BD4-A17AD61FBEDB}#1.0#0"; "ChamaleonButton.ocx"
Begin VB.Form frmAbrirReporteComparativo 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   2940
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   5175
   BeginProperty Font 
      Name            =   "Book Antiqua"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmAbrirReporteComparativo.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2940
   ScaleWidth      =   5175
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame fraContenedor 
      BackColor       =   &H00808080&
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   2055
      Left            =   0
      TabIndex        =   1
      Top             =   390
      Width           =   5145
      Begin VB.ComboBox cboPuntoVenta 
         Height          =   345
         Left            =   1380
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   780
         Width           =   2715
      End
      Begin VB.Frame frParametros 
         BackColor       =   &H80000014&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   0
         TabIndex        =   2
         Top             =   0
         Width           =   15255
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Seleccione el Rango de Fechas"
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   315
            Left            =   120
            TabIndex        =   3
            Top             =   240
            Width           =   3315
         End
      End
      Begin MSComCtl2.DTPicker dtFin 
         Height          =   315
         Left            =   1380
         TabIndex        =   5
         Top             =   1500
         Width           =   1485
         _ExtentX        =   2619
         _ExtentY        =   556
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Format          =   118489089
         CurrentDate     =   38745
      End
      Begin MSComCtl2.DTPicker dtInicio 
         Height          =   315
         Left            =   1380
         TabIndex        =   6
         Top             =   1140
         Width           =   1485
         _ExtentX        =   2619
         _ExtentY        =   556
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Format          =   118489089
         CurrentDate     =   38745
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Punto Venta :"
         ForeColor       =   &H8000000E&
         Height          =   225
         Left            =   240
         TabIndex        =   9
         Top             =   810
         Width           =   1020
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Desde :"
         ForeColor       =   &H8000000E&
         Height          =   225
         Left            =   240
         TabIndex        =   8
         Top             =   1200
         Width           =   555
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Hasta :"
         ForeColor       =   &H8000000E&
         Height          =   225
         Left            =   240
         TabIndex        =   7
         Top             =   1560
         Width           =   540
      End
   End
   Begin ChamaleonButton.ChameleonBtn cmdMostrar 
      Height          =   345
      Left            =   1950
      TabIndex        =   0
      Top             =   2550
      Width           =   1545
      _ExtentX        =   2725
      _ExtentY        =   609
      BTYPE           =   3
      TX              =   "&Mostrar"
      ENAB            =   -1  'True
      BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Book Antiqua"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      COLTYPE         =   1
      FOCUSR          =   -1  'True
      BCOL            =   15790320
      BCOLO           =   15790320
      FCOL            =   0
      FCOLO           =   0
      MCOL            =   12632256
      MPTR            =   1
      MICON           =   "frmAbrirReporteComparativo.frx":000C
      PICN            =   "frmAbrirReporteComparativo.frx":0028
      UMCOL           =   -1  'True
      SOFT            =   0   'False
      PICPOS          =   0
      NGREY           =   0   'False
      FX              =   0
      HAND            =   0   'False
      CHECK           =   0   'False
      VALUE           =   0   'False
   End
   Begin ChamaleonButton.ChameleonBtn cmdSalir 
      Height          =   345
      Left            =   3570
      TabIndex        =   10
      Top             =   2550
      Width           =   1545
      _ExtentX        =   2725
      _ExtentY        =   609
      BTYPE           =   3
      TX              =   "&Salir"
      ENAB            =   -1  'True
      BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Book Antiqua"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      COLTYPE         =   1
      FOCUSR          =   -1  'True
      BCOL            =   15790320
      BCOLO           =   15790320
      FCOL            =   0
      FCOLO           =   0
      MCOL            =   12632256
      MPTR            =   1
      MICON           =   "frmAbrirReporteComparativo.frx":688A
      PICN            =   "frmAbrirReporteComparativo.frx":68A6
      UMCOL           =   -1  'True
      SOFT            =   0   'False
      PICPOS          =   0
      NGREY           =   0   'False
      FX              =   0
      HAND            =   0   'False
      CHECK           =   0   'False
      VALUE           =   0   'False
   End
   Begin VB.Label lblTitulo 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Reporte de Comparativo "
      BeginProperty Font 
         Name            =   "Book Antiqua"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   345
      Left            =   60
      TabIndex        =   11
      Top             =   0
      Width           =   3210
   End
End
Attribute VB_Name = "frmAbrirReporteComparativo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mvarlistaPuntosVenta As Collection
Private Control As New cReporte

Private Sub cmdMostrar_Click()
Dim bparm As New BParametrosReporte
bparm.dFechaIni = Me.dtInicio.value
bparm.dFechaFin = Me.dtFin.value
If cboPuntoVenta.ListIndex >= 0 Then
    Set bparm.bPuntoVenta = mvarlistaPuntosVenta.Item(cboPuntoVenta.ListIndex + 1)
Else
    utilMensaje.muestraMensaje CampoRequerido, "Punto de Venta"
    Exit Sub
End If
Control.mostrarReporteComparativo bparm
End Sub

Public Property Get listaPuntosVenta() As Collection
    Set listaPuntosVenta = mvarlistaPuntosVenta
End Property

Public Property Set listaPuntosVenta(vData As Collection)
    Set mvarlistaPuntosVenta = vData
    llenarPuntosVenta
End Property

Private Sub llenarPuntosVenta()
Dim i As Integer
Dim bPuntoVenta As bPuntoVenta
cboPuntoVenta.Clear
For i = 1 To mvarlistaPuntosVenta.Count
    Set bPuntoVenta = mvarlistaPuntosVenta.Item(i)
    cboPuntoVenta.AddItem bPuntoVenta.sDescripcion
Next
    Me.cboPuntoVenta.ListIndex = 0
End Sub

Private Sub Form_Load()
Call p_CentrarForm(Me, frmPrincipal)
Me.dtInicio.value = Date
Me.dtFin.value = Date
End Sub

Private Sub cmdSalir_Click()
Unload Me
End Sub






